home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v1.d64 / speed drill-mult (.txt) < prev    next >
Commodore BASIC  |  2009-01-19  |  1KB  |  38 lines
  1. 10 PRINT"[147]***SPEED DRILL-MULT***"
  2. 100 C=0
  3. 110 W=0
  4. 120 N=-1
  5. 130 J=1
  6. 150 DIM AA(100),BB(100)
  7. 160 PRINT"HOW MANY PROBLEMS";:INPUT NP
  8. 165 IF NP>100 THEN PRINT "MUST BE 100 OR LESS":GOTO 160
  9. 170 A=INT(RND(-TI))
  10. 180 TB$=TI$:SB=VAL(RIGHT$(TB$,2)):MB=VAL(MID$(TB$,3,2))
  11. 190 N=N+1
  12. 200 IF N=NP THEN GOTO 340
  13. 210 IF INT(N/10)=N/10 THEN PRINT "[147]"
  14. 220 A=INT(RND(1)*11)
  15. 230 B=INT(RND(1)*11)
  16. 240 IF A*B<10 GOTO 220
  17. 250 PRINT A;"X";B;"= ";
  18. 260 INPUT P
  19. 270 IF P=A*B THEN 320
  20. 280 W=W+1
  21. 290 AA(J)=A:BB(J)=B
  22. 300 J=J+1
  23. 310 GOTO 190
  24. 320 C=C+1
  25. 330 GOTO 190
  26. 340 TE$=TI$:SE=VAL(RIGHT$(TE$,2)):ME=VAL(MID$(TE$,3,2))
  27. 350 S=SE-SB:IF S<0 THEN F=1:S=S+60
  28. 360 M=ME-MB:IF F=1 THEN M=M-1
  29. 370 IF M<0 THEN M=M+60
  30. 380 PRINT:PRINT "TOTAL TIME =";M;"MINUTES AND";S;"SECONDS"
  31. 390 PRINT:PRINT "YOU GOT";C;"CORRECT AND";W;"WRONG"
  32. 400 IF W=0 THEN GOTO 450
  33. 410 PRINT "YOUR MISTAKES WERE"
  34. 420 FOR K=1 TO J-1
  35. 430 PRINT AA(K);"X";BB(K)
  36. 440 NEXT K
  37. 450 END
  38.